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| 9000 : ABSTRACT: 
0000 One of four procedures which give higher level Languages access 
0000 : to the inter ached. self-relative queue instructions on the 
0000 ; VAX-11/780 and all future machines. This Library procedure permits 
5000 : the high level language user to have access to the INSQHI instruction. 
444 ENVIRONMENT: User Mode, AST Reentrant 
0000 i-- 
444 : AUTHOR: R. E. Johnston, CREATION DATE: 03-Dec-79 
9000 MODIFIED BY: 
0000 : 
0000 : 1-001 - Original. REJ 03-Dec-79 
444 : 1-002 - Retry count is off by one. DGP 14-Aug-1981 
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.SBTTL DECLARATIONS 
t INCLUDE FILES: 
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: EXTERNAL DECLARATIONS: 
.DSABL GBL 


-EXTRN SS$_NORMAL 
~-EXTRN LIBS_SECINTFAI 


~-EXTRN LIBS_ONEENTQUE 


Disable automatic generation | 
of .EXTRN 2 

Normal successful completion 
Secondary Interlock still 
locked after retry-cnt retrys 
Successful Completion but 
only one entry is now 
contained in queue 


> MACROS: 


PEEP AAA MINIT 
OWONOUE WO OONOUES WN oO 


70 ; 
71 ; EQUATED SYMBOLS: 
73° DEF_RETRY_CNT = 10 


0000000A Default retry count for 


Secondary Interlock fails 
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76 : OWN STORAGE: 


80 : PSECT DECLARATIONS: 
82° .PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT 
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: : FUNCTIONAL DESCRIPTION: 
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H 


One of four procedures which give higher level languages access 
to the interlocked, self-relative queue instructions on the 

VAX=11/780 and all future machines. This library procedure permits 

the high Level Language user to have access to the INSQHI instruction. 
With this procedure the user may insert a queue entry at the head of a 
user specified queue. 


If the entry is successfully added to the head of the queue and the 
Queue contains more than one entry, a successful completion status is 
returned. If the entry is added to the head of the queue and no other 
entries are in the queue, the execution is successful but a unique 
status value is returned indicating that the queue now contains one 
entry (LIBS_ONEENTQUE). 


These queue instructions are synchronized across all processors 

cohen the use of a secondary interlock. The user may Seog aty a 

secondary interlock retry count. (The default retry count is 10.) 

If the secondary interlock remains locked through retry-count retrys 

a@ secondary interlock status is returned to the user (LIB$_SECINTF 15 

and the entry is NOT successfully added to the head of the queue. 
CALLING SEQUENCE: 


ret-status.wlc.v = LIBSINSQHI (entry.ml.ra, header.mg.rl, retry-cnt.rlu.r)) 


INPUT PARAMETERS: 
ENTRY = 4 ; Address of queue entry to be inserted 
HEADER = 8 ; Address of queue header 
RETRY_CNT = 12 ; Address of retry count 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 
SS$_NORMAL - Entry added to head of queue, queue contains more 
than one entry. ’ : 
LIBS_ONEENTQUE = Successful completion of instruction (INSQHI). 


ntry added to head of queue, but queue was empty. 
LIBS_SECINTFAI = Secondary Interlock failed, queue is not modified. 
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1-002 LIBSINSQHI - Insert Entry into Queue Hea 6-SEP=1984 11:08:11 CLIBRTL.SRCILIBINSQHI.MAR; 1 
09 Pe: ; SIDE EFFECTS: 
° 148 ; SS$_ROPRAND - reserved operand fault for: 
0 147 ; 1.) either the entry or the header is at an address 
000 148 ; that is not quad word aligned. 
BB8 133 ; 2.) address of header equals address of entry. 
000 18) je 
00 136 
| 0000 $e 137 -ENTRY LIBSINSQHI , “M< > : Entry point 
30 OA 00 909 155 MOVL  &#DEF_RETRY_CNT, RO ; RO = Default retry count of 10 
03 6c 91 156 CMPB = (AP)> «#<RETRY_CNT/4> =: Check for optional retry cnt operand 
04 1F 0008 #£«157 BLSSU 208% : Branch if default count to be used 
| 50 Oc BC 00 Booe 133 208 MOVL @RETRY_CNT(AP), RO ; RO = User specified retry count 
08 BC 04 BC 5C 49 160 INSQHI] @ENTRY(AP), @HEADER(AP) ; Do the instruction (INSQHI) 
08 18 001 161 BLEQU§ 30$ ; Branch if Z = 1 (One entry in queue) 
0015 196 ; or C = 1 (Secondary Interlock fail) 
50 00000000'8F DO 0015 16 MOVL #SS$_NORMAL, RO ; Normal status - Entry added to head 
QO1C 164 ; Of queue and more than one entry is 
O01C 165 3 now in queue 
04 OO1C 166 RET ; Successful return to user 
001D 167 30S: : 
08 iF QO1D 168 BCS 40$ ; Branch if Secondary Interlock fail 
50 Q00000000'8F DO OOI1F 169 MOVL #LIBS_ONEENTQUE, RO ; Assume exactly one entry now in queue 
0026 170 ; Entry successfully entered into queue 
04 0026 171 RET ; Successful return to user 
pose 126 40$: 
E46 50 F& Q027 17 SOBGEQ RO, 208% ; Loop until retry count is exhausted 
50 00000000°8F 0 O0ga 174 MOVL  #L{B$_SECINTFAI, RO ; Retry count is exhausted 
0031 175 ; Secondary Interlock fail status 
04 0031 176 RET ; Unsuccessful return to user 
0032 177 ~ END : 
| 
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Symbol table 6-SEP=1984 11:08:11 CLIBRTL.SRCILIBINSQHI.MAR; 1 (3) 
ver RETRY_CNT = QOQOQO0A 
ENTRY = 0 000004 
/HEADE = 0000000 | 
LIBSINSQHI 00000000 RG 01 
|LIBS_ONEENTQUE eeeeeee YX (00 
|LIBS"SECINTFA] eeeeeeee YX 00 
RETRY_CNT = 0000000C 
SS$_NORMAL eeeeeeere§ §=6X = =600 F 
were er eee ew eee eee + | 
! Psect synopsis ! | 
| 
PSECT name Allocation PSECT No. Attributes 
— OS 00000000 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_LIBSCODE 00000032 <¢ 3.) Gi © tei PIC USR CON REL LCL SHR EKE RD NOWRT NOVEC LONG 


Phase Page faults CPU Time Elapsed Time 
Initialization 

Command processing 109 
Pass 1 72 
Symbol table sort 0 
Pass 2 46 
Symbol table output 2 
Psect synopsis output 2 
Cross-reference output ° 
Assembler run totals 26 
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1848 bytes (4 pages) of virtual memory were used to buffer the intermediate Pr: 

There were 10 pages of symbol table space allocated to hold 8 non-local and 3 local symbols. 
177 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


Macro library statistics ! 


The working set Limit was 900 pages. 
| 
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Macro Library name Macros defined 

“S255SDUAZB:(SYSLIBJSTARLET.MLB:2 0 (tt . 

0 GETS were required to define 0 macros. | 
There were no errors, warnings or information messages. 
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